The Ultimate Frank Lloyd…ght - America's Architect/Ultimate Frank Lloyd Wright, The - America's Architect (1994)(Microsoft Home).iso/pre/flw/flwat03.dir/00113_Script_113

Text File | 1994-11-15 | 6KB | 222 lines

on startMovie
  global nowFrame, lastFrame, currMM, reEntry, stateOn, stepNow, dialogOn
  global rolledAlready, thumbTrack, showText, switchState,jmpFrame
  set dialogOn = FALSE
  set stepNow = FALSE
  set switchState = FALSE
  set stateOn = FALSE
  set rolledAlready = FALSE
  set showText = FALSE
  set nowFrame = "atusa000000n°°"
  set currMM = "FLWWW"
  puppetSprite 10, TRUE
  puppetSprite 21, TRUE
  puppetSprite 22, TRUE
  puppetSprite 23, TRUE
  set the immediate of sprite 23 to TRUE
  set the stretch of sprite 23 to FALSE
end startMovie

on stepMovie
  global nowFrame,currFrame
  if nowFrame  <> currFrame then
    seeAlsoList
    set currFrame = nowFrame
  end if
end stepMovie

on stopMovie
  set the castNum of sprite 21 to 1050
  puppetSprite 21, FALSE
  put " " into field "seeAlsoText"
  updateStage
end stopMovie

on scrollRoll
  global switchState

  if rollover(13) then
    set the forecolor of sprite 13 to 228
  else
    set the forecolor of sprite 13 to 255
  end if

  if rollover(14) then
    set the forecolor of sprite 14 to 228
  else
    set the forecolor of sprite 14 to 255
  end if

  if the castNum of sprite 7 = 112 then
    if the castNum of sprite 13 <> the number of cast "nextTxUp" then
      set the castNum of sprite 13 to the number of cast "nextTxRt"
    end if
    set the castNum of sprite 14 to the number of cast "prevTxNull"
  else if the castNum of sprite 7 = 108 then
    set the castNum of sprite 13 to the number of cast "nextTxNull"
    if the castNum of sprite 14 <> the number of cast "prevTxUp" then
      set the castNum of sprite 14 to the number of cast "prevTxRt"
    end if
  else
    if the castNum of sprite 13 <> the number of cast "nextTxUp" then
      set the castNum of sprite 13 to the number of cast "nextTxRt"
    end if
    if the castNum of sprite 14 <> the number of cast "prevTxUp" then
      set the castNum of sprite 14 to the number of cast "prevTxRt"
    end if
  end if

  updateStage
end scrollRoll

on multiScreenPup
  puppetSprite 7, TRUE
  puppetSprite 8, TRUE
  puppetSprite 11, TRUE
  puppetSprite 13, TRUE
  puppetSprite 14, TRUE
end multiScreenPup

on saveLocals
  global lastFrame, nowFrame, lastMovie
  set lastFrame = nowFrame
  set lastMovie = the movie
end saveLocals

on buttonState
  global FrankNav
  global thumbTrack, thumbFrame, bflag, dialogOn

  if dialogOn = FALSE then

    glassCheck
    scrollRoll

    -- don't check global buttons unless mouse is down at bottom
    if (the mouseV > 300) or (bFlag = TRUE) then
      doState
    end if
  end if
end buttonState

on atForStep
  puppetSprite 7, FALSE
  puppetSprite 8, FALSE
  puppetSprite 11, FALSE
  puppetSprite 13, FALSE
  puppetSprite 14, FALSE
  if the frame = 50 then
    go to movie "FLWAT04"
  else
    go to marker(+1)
  end if
  updateStage
end atForStep

on atBackStep
  puppetSprite 7, FALSE
  puppetSprite 8, FALSE
  puppetSprite 11, FALSE
  puppetSprite 13, FALSE
  puppetSprite 14, FALSE
  if the frame < 3 then
    go to frame "at000bld024°°°" of movie "FLWAT02"
  else
    go to marker(-1)
  end if
  updateStage
end atBackStep

on textRoll txHt
  global origLocV, rolledAlready, topHat, horNess, dialogOn, SeeAlsoBox
  if dialogOn = FALSE and SeeAlsoBox = FALSE then
    set topHat = txHt
    if rolledAlready = FALSE then
      set origLocV = the locV of sprite 8
    end if

    if the mouseH < 414 and the mouseV > 366 and the mouseV < 429 then
      set the locV of sprite 8 to txHt
      set rolledAlready = TRUE
    else if the mouseH > 414 or the mouseV > 429 or the mouseV < topHat then
      set the locV of sprite 8 to origLocV
    end if
  end if
end textRoll

on glassCheck
  if the frame < 157 then
    if rollOver(10) then
      set the castNum of sprite 10 to 199
    else
      set the castNum of sprite 10 to 2
    end if
  end if
  updateStage
end glassCheck

on ill1
  global switchState
  if switchState = FALSE then
    set the castNum of sprite 7 to 112
    set the castNum of sprite 11 to 106
  end if
end ill1

on ill2
  global switchState
  if switchState = FALSE then
    set the castNum of sprite 7 to 111
    set the castNum of sprite 11 to 106
  end if
end ill2

on ill3
  global switchState
  if switchState = FALSE then
    set the castNum of sprite 7 to 110
    set the castNum of sprite 11 to 106
  end if
end ill3

on ill4
  global switchState
  if switchState = FALSE then
    set the castNum of sprite 7 to 109
    set the castNum of sprite 11 to 106
  end if
end ill4

on ill5
  global switchState
  if switchState = FALSE then
    set the castNum of sprite 7 to 108
    set the castNum of sprite 11 to 106
  end if
end ill5

on nextList
  global switchState
  puppetSprite 11, FALSE
  puppetSprite 13, FALSE
  puppetSprite 14, FALSE
  set switchState = TRUE
  if rollover(13) then
    set currCast = the castNum of sprite 7
    set the castNum of sprite 7 to (the number of cast currCast - 1)
    set the castNum of sprite 11 to 202
  end if
end nextList

on prevList
  global switchState
  puppetSprite 11, FALSE
  puppetSprite 13, FALSE
  puppetSprite 14, FALSE
  set switchState = TRUE
  if rollover(14) then
    set currCast = the castNum of sprite 7
    set the castNum of sprite 7 to (the number of cast currCast + 1)
    set the castNum of sprite 11 to 202
  end if
end prevList